home *** CD-ROM | disk | FTP | other *** search
/ What CD? 12 / What PC June 1997.iso / multi / cyber / cyber95 / _setup.1 / SERP.POP < prev    next >
Encoding:
Text File  |  1996-09-04  |  1.4 KB  |  55 lines
  1. population 0
  2. dimensions = 1
  3. colour_model RGB
  4. render_quality flat
  5. genome 0 {
  6.  
  7.     // initialise turtle
  8.     hue( 0 : 0 : 1 ),
  9.     swivelRight( 1.570770 ),
  10.  
  11.     // scalar mem[4] = loop count
  12.     setScalarMem( 4, 20 : 10 : 40 ),
  13.  
  14.     // colour mem[0], mem[1] = extreme colour values
  15.     setColourMem(
  16.         0,
  17.         hsva<0,.5,.5,0> :hsva<0,.2,.2,0> : hsva<0.999,.999,.999,0>
  18.     ),
  19.     setColourMem(
  20.         1,
  21.         hsva<0,.5,.5,0> :hsva<0,.2,.2,0> : hsva<0.999,.999,.999,0>
  22.     ),
  23.  
  24.     // keep moving forward laying eggs scaled by a sine wave
  25.     for(
  26.         getScalarMem( 4 ),
  27.         0,   // store loop variable in scalar mem[0]
  28.         
  29.         // loop code
  30.         join(
  31.             // scalar mem[5] = alpha
  32.             setScalarMem( 5, div(getScalarMem(0),getScalarMem(4)) ),
  33.  
  34.             // do turtle stuff
  35.             forward( 0.540583 : -0.600000 : 0.600000 ),
  36.             setColour(
  37.                 createHSVA(
  38.                     lerp( getScalarMem(5), colourH(getColourMem(0)), colourH(getColourMem(1)) ),
  39.                     lerp( getScalarMem(5), colourS(getColourMem(0)), colourS(getColourMem(1)) ),
  40.                     lerp( getScalarMem(5), colourV(getColourMem(0)), colourV(getColourMem(1)) ),
  41.                     lerp( getScalarMem(5), colourA(getColourMem(0)), colourA(getColourMem(1)) )
  42.                 )
  43.             ),
  44.             eggVectorScaleAbs( 
  45.                 createVec(
  46.                     serp( getScalarMem(5), .75:.5:1, 3:2:5 ),
  47.                     serp( getScalarMem(5), .75:.5:1, 3:2:5 ),
  48.                     serp( getScalarMem(5), .75:.5:1, 3:2:5 )
  49.                 ) 
  50.             ),
  51.             lay
  52.         )
  53.     )
  54. }
  55.